home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / C64Demos / DEMOS.ARC / M.MR DEMO (.txt) < prev    next >
Commodore BASIC  |  2019-04-13  |  8KB  |  200 lines
  1. 10 POKE51,255:POKE52,127:POKE55,255:POKE56,127:CLR
  2. 20 POKE53280,11:SYS49288,0,5,13,2:SYS49936:SYS49888:SYS50704
  3. 30 FORA=20TO0STEP-1:SYS49936:SYS50416,20,16-A*4,0,A,8,1:NEXT
  4. 40 SYS50176
  5. 50 FORA=20TO0STEP-1:SYS50216:SYS50416,28,16-A*4,0,A,5,1:NEXT
  6. 60 SYS50176
  7. 70 FORA=20TO0STEP-1:SYS50216:SYS50416,36,16-A*4,0,A,12,1:NEXT
  8. 80 SYS50176
  9. 90 FORA=20TO0STEP-1:SYS50216:SYS50416,44,16-A*4,0,A,12,1:NEXT
  10. 100 SYS50176
  11. 110 FORA=20TO0STEP-1:SYS50216:SYS50416,52,16-A*4,0,A,15,1:NEXT
  12. 120 SYS50176
  13. 130 FORA=20TO0STEP-1:SYS50216:SYS50416,20,24-A*4,0,A,20,2:NEXT
  14. 140 SYS50176
  15. 150 FORA=20TO0STEP-1:SYS50216:SYS50416,28,24-A*4,0,A,8,2:NEXT
  16. 160 SYS50176
  17. 170 FORA=20TO0STEP-1:SYS50216:SYS50416,36,24-A*4,0,A,5,2:NEXT
  18. 180 SYS50176
  19. 190 FORA=20TO0STEP-1:SYS50216:SYS50416,44,24-A*4,0,A,18,2:NEXT
  20. 200 SYS50176
  21. 210 FORA=20TO0STEP-1:SYS50216:SYS50416,52,24-A*4,0,A,5,2:NEXT
  22. 220 SYS50176
  23. 230 FORA=-3TO16:SYS49960,A,A-2,79-A*2,50-A*2,3:NEXT
  24. 240 FORA=-3TO15:SYS49960,A,A-2,79-A*2,50-A*2,0:NEXT:GOSUB5000
  25. 250 FORA=14TO24:SYS49960,0,A,79,0,0:SYS49960,0,49-A,79,0,0:NEXT
  26. 260 SYS49288,0,7,10,2:SYS50736:SYS50720
  27. 270 FORA=9TO0STEP-1:SYS49936:SYS50416,35-A*4,24-A*4,A,A,48+A,1:SYS50176
  28. 280 FORB=1TO1500:NEXT:NEXT
  29. 300 FORA=-95TO80STEP5:SYS49936:SYS49960,A+4,20,16,0,1
  30. 301 SYS49960,A+3,21,17,0,2
  31. 302 SYS49960,A+2,22,18,0,1
  32. 303 SYS49960,A+1,23,19,0,2
  33. 304 SYS49960,A+0,24,20,0,1
  34. 305 SYS49960,A+1,25,19,0,2
  35. 306 SYS49960,A+2,26,18,0,1
  36. 307 SYS49960,A+3,27,17,0,2
  37. 308 SYS49960,A+4,28,16,0,1
  38. 309 SYS49960,A+20,20,3,8,2:SYS49960,A+23,19,65,10,3
  39. 310 SYS50416,A+24,21,0,0,2,2
  40. 311 SYS50416,A+32,21,0,0,12,2
  41. 312 SYS50416,A+40,21,0,0,1,2
  42. 313 SYS50416,A+48,21,0,0,19,2
  43. 314 SYS50416,A+56,21,0,0,20,2
  44. 315 SYS50416,A+64,21,0,0,15,2
  45. 316 SYS50416,A+72,21,0,0,6,2
  46. 317 SYS50416,A+80,21,0,0,6,2
  47. 318 SYS49960,A+89,19,0,10,2
  48. 319 SYS49960,A+90,20,0,8,2
  49. 320 SYS49960,A+91,21,0,6,2
  50. 321 SYS49960,A+92,22,0,4,2:SYS49960,A+93,23,0,2,2:SYS50176:NEXT:POKE198,0
  51. 330 SYS49936:FORA=1TO3000:NEXT:SYS50704:SYS49288,0,10,4,3
  52. 335 FORA=0TO24:SYS49960,A,A-2,79-A*2,49-A*2,(25-A)/8:NEXT:A=-8:POKE198,0
  53. 336 POKE646,PEEK(827)+8
  54. 337 PRINT"[147][144]                                        ";
  55. 338 PRINT" PRESS SPACEBAR TO CONTINUE [146]"
  56. 339 POKE646,PEEK(827)+8:SYS49584,24,0
  57. 340 A=((A+8)AND31)-7:A1=(AAND31)-7:A2=((A-8)AND31)-7:A3=((A-16)AND31)-7
  58. 345 SYS49960,A,A-2,79-A*2,49-A*2,0
  59. 350 SYS49960,A1,A1-2,79-A1*2,49-A1*2,1
  60. 360 SYS49960,A2,A2-2,79-A2*2,49-A2*2,2
  61. 370 SYS49960,A3,A3-2,79-A3*2,49-A3*2,3
  62. 380 GETA$:IFA$<>" "THEN340
  63. 390 SYS49888:PRINT"[147]":SYS49936:SYS49288,0,4,10,2
  64. 400 FORA=-20TO30:SYS49152,A+20,20,1:SYS49152,A,20,0
  65. 405 SYS49152,60-A,30,1:SYS49152,80-A,30,0
  66. 410 SYS49152,50,A,1:SYS49152,50,A-10,0
  67. 415 SYS49152,30,50-A,1:SYS49152,30,60-A,0:NEXT:SYS49960,30,20,20,10,1
  68. 418 FORA=1TO500:NEXT
  69. 420 FORA=30TO0STEP-1:SYS49960,A,20,20,10,1
  70. 425 FORB=0TO50:NEXT:POKE822,0:SYS50032:NEXT
  71. 430 SYS49960,0,20,20,10,1:SYS50176:FORA=21TO79STEP2:FORB=-10TO20STEP5
  72. 440 SYS50216:SYS49960,A,B,1,10,2:NEXT:SYS50176:NEXT
  73. 450 FORA=0TO18STEP2:FORB=0TO18-A:SYS50216:SYS49960,32,B,16,1,3
  74. 460 SYS49960,32,49-B,16,1,3:NEXT:SYS50176:NEXT
  75. 470 FORA=13TO32:FORB=13+(AAND1)TO45-ASTEP2:SYS50216:SYS49960,-1,-13,B,B,1
  76. 475 SYS49960,81-B,-13,B,B,1:SYS49960,-1,63-B,B,B,1:SYS49960,81-B,63-B,B,B,1
  77. 480 NEXT:SYS50176:NEXT
  78. 490 FORA=0TO4:SYS49960,1+A,21+A,18-A*2,8-A*2,2:FORB=1TO200:NEXT:NEXT:GOSUB5000
  79. 500 FORA=0TO24:SYS49960,A,A,79-A*2,49-A*2,0:NEXT:A=-1:C=2:SYS49288,0,13,10,4
  80. 505 SYS50736:SYS50720
  81. 510 FORB=-24TO80
  82. 520 A=A+1:IFA=25THENA=0:C=((C+1)AND1)+2
  83. 530 SYS49960,A,A,79-A*2,49-A*2,C
  84. 540 SYS50416,B-1,14,2,2,18,C:SYS50416,B,14,2,2,18,1:SYS50176:NEXT
  85. 550 SYS50216:SYS50704
  86. 560 FORA=0TO24:SYS49960,A,A,79-A*2,49-A*2,0:NEXT
  87. 570 SYS49288,0,2,3,6
  88. 580 POKE646,PEEK(827)+8:POKE198,0
  89. 590 PRINT"[147][144]                                        ";
  90. 600 PRINT" PRESS SPACEBAR TO CONTINUE [146]"
  91. 610 POKE646,PEEK(827)+8:SYS49584,24,0:C=0
  92. 620 C=C+1:IFC=4THENC=1
  93. 625 W=-5+INT(RND(1)*80):X=-5+INT(RND(1)*50):Y=INT(RND(1)*3):Z=INT(RND(1)*3)
  94. 630 SYS50416,W,X,Y,Z,INT(RND(1)*26)+1,C:GETA$:IFA$<>" "THEN620
  95. 640 SYS49888:PRINT"[147]"
  96. 650 FORA=0TO24:SYS49960,A,A,79-A*2,49-A*2,0:NEXT
  97. 660 SYS49288,0,7,10,2
  98. 670 FORA=80TO0STEP-2:SYS50416,A+2,8,0,0,23,0:SYS50416,A,8,0,0,23,2:NEXT
  99. 680 FORA=80TO8STEP-2:SYS50416,A+2,8,0,0,15,0:SYS50416,A,8,0,0,15,2:NEXT
  100. 690 FORA=80TO16STEP-2:SYS50416,A+2,8,0,0,23,0:SYS50416,A,8,0,0,23,2:NEXT
  101. 700 FORA=80TO24STEP-2:SYS50416,A+2,8,0,0,33,0:SYS50416,A,8,0,0,33,2:NEXT
  102. 710 FORA=50TO16STEP-2:SYS50416,0,A+2,0,0,20,0:SYS50416,0,A,0,0,20,2:NEXT
  103. 720 FORA=50TO16STEP-2:SYS50416,8,A+2,0,0,8,0:SYS50416,8,A,0,0,8,2:NEXT
  104. 730 FORA=50TO16STEP-2:SYS50416,16,A+2,0,0,9,0:SYS50416,16,A,0,0,9,2:NEXT
  105. 740 FORA=50TO16STEP-2:SYS50416,24,A+2,0,0,19,0:SYS50416,24,A,0,0,19,2:NEXT
  106. 750 FORA=26TO0STEP-2:SYS50416,A+2,A+26,0,0,9,0:SYS50416,A,A+24,0,0,9,2
  107. 760 SYS50416,A+10,A+26,0,0,19,0:SYS50416,A+8,A+24,0,0,19,2:NEXT
  108. 770 FORA=80TO0STEP-8:SYS50416,A+8,32,0,0,7,0:SYS50416,A,32,1,0,7,2
  109. 780 SYS50416,A,32,1,0,7,0:SYS50416,A,32,0,0,7,2:NEXT
  110. 790 FORA=80TO8STEP-8:SYS50416,A+8,32,0,0,18,0:SYS50416,A,32,1,0,18,2
  111. 800 SYS50416,A,32,1,0,18,0:SYS50416,A,32,0,0,18,2:NEXT
  112. 810 FORA=80TO16STEP-8:SYS50416,A+8,32,0,0,5,0:SYS50416,A,32,1,0,5,2
  113. 820 SYS50416,A,32,1,0,5,0:SYS50416,A,32,0,0,5,2:NEXT
  114. 830 FORA=80TO24STEP-8:SYS50416,A+8,32,0,0,1,0:SYS50416,A,32,1,0,1,2
  115. 840 SYS50416,A,32,1,0,1,0:SYS50416,A,32,0,0,1,2:NEXT
  116. 850 FORA=80TO32STEP-8:SYS50416,A+8,32,0,0,20,0:SYS50416,A,32,1,0,20,2
  117. 860 SYS50416,A,32,1,0,20,0:SYS50416,A,32,0,0,20,2:NEXT
  118. 870 FORA=80TO40STEP-8:SYS50416,A+8,32,0,0,33,0:SYS50416,A,32,1,0,33,2
  119. 880 SYS50416,A,32,1,0,33,0:SYS50416,A,32,0,0,33,2:NEXT
  120. 900 SYS50256,0,44,79,5,3
  121. 910 C=2:FORA=48TO79:C=((C+1)AND1)+2
  122. 920 L=INT(RND(1)*36):SYS49960,A,43-L,0,L,C:NEXT
  123. 930 POKE646,PEEK(827)+8:POKE198,0
  124. 940 PRINT"[147][144]                                        ";
  125. 950 PRINT" PRESS SPACEBAR TO CONTINUE [146]"
  126. 960 POKE646,PEEK(827)+8:SYS49584,24,0:A=-1
  127. 970 B=0:A=A+1:IFA=80THENA=0
  128. 980 SYS49152,A,B,1:GETA$:IFA$=" "THEN1000
  129. 990 SYS49360,A,B+1:IFPEEK(823)=0THENB=B+1:IFB<>49THENSYS49152,A,B-1,0:GOTO980
  130. 995 GOTO970
  131. 1000 SYS49888
  132. 1010 FORA=0TO24:SYS49960,A,A,79-A*2,49-A*2,0:NEXT
  133. 1015 SYS49288,0,13,5,3
  134. 1018 SYS49960,0,41,79,0,3:SYS49960,0,42,79,0,1:SYS49960,0,43,79,0,2
  135. 1020 SYS49960,0,44,79,0,3:SYS49960,0,45,79,0,1:SYS49960,0,46,79,0,2
  136. 1030 SYS49960,0,47,79,0,3:SYS49960,0,48,79,0,1:SYS49960,0,49,79,0,2
  137. 1040 B=1:FORC=0TO79:A=C+1:SYS49960,C,10+SIN(A/8)*8,0,31-SIN(A/8)*8,B
  138. 1050 B=B+1:IFB=4THENB=1
  139. 1060 NEXT
  140. 1070 B=2:FORC=0TO79:A=C+20:SYS49960,C,20+SIN(A/12)*8,0,21-SIN(A/12)*8,B
  141. 1075 SYS49152,C,20+SIN(A/12)*8,0
  142. 1080 B=B+1:IFB=4THENB=1
  143. 1090 NEXT
  144. 1100 B=3:FORC=0TO79:A=C+40:SYS49960,C,30+SIN(A/10)*7,0,11-SIN(A/10)*7,B
  145. 1115 SYS49152,C,30+SIN(A/10)*7,0
  146. 1120 B=B+1:IFB=4THENB=1
  147. 1130 NEXT
  148. 1140 GOSUB5000
  149. 1150 FORA=0TO24:SYS49960,A,A,79-A*2,49-A*2,0:NEXT:SYS49288,0,7,2,5
  150. 1160 POKE646,PEEK(827)+8:POKE198,0
  151. 1170 PRINT"[147][144]                                        ";
  152. 1180 PRINT" PRESS SPACEBAR TO CONTINUE [146]"
  153. 1190 POKE646,PEEK(827)+8:SYS49584,24,0:A=0
  154. 1200 A=A+1:SYS49960,40-A,A,1+A*2,49-A*2,(AAND1)+2:GETA$:IFA$=" "THEN1230
  155. 1205 IFA<>24THEN1200
  156. 1210 A=A-1:SYS49960,40-A,A,1+A*2,49-A*2,((A+1)AND1)+1:GETA$:IFA$=" "THEN1230
  157. 1215 IFA<>0THEN1210
  158. 1220 GOTO1200
  159. 1230 SYS49888:PRINT"[147]"
  160. 1235 FORA=1TO400:X=16+INT(RND(1)*50):Y=INT(RND(1)*49):Z=INT(RND(1)*3)+1
  161. 1240 SYS50256,X,Y,Z,Z,0:NEXT
  162. 1250 FORA=0TO24:SYS49960,A,A,79-A*2,49-A*2,0:NEXT
  163. 1260 SYS49288,0,2,10,4:POKE646,PEEK(827)+8:POKE198,0
  164. 1270 PRINT"[147][144]                                        ";
  165. 1280 PRINT" PRESS SPACEBAR TO CONTINUE [146]"
  166. 1290 POKE646,PEEK(827)+8:SYS49584,24,0:C=0
  167. 1300 X=-5+INT(RND(1)*80):Y=-5+INT(RND(1)*50):C=C+1:IFC=4THENC=1
  168. 1310 SYS49960,X,Y,2+INT(RND(1)*8),2+INT(RND(1)*8),C:GETA$:IFA$<>" "THEN1300
  169. 1320 SYS49888:PRINT"[147]":FORA=0TO24:SYS49960,A,A,79-A*2,49-A*2,0:NEXT
  170. 1330 DIMZ(20):FORA=0TO20:Z(A)=INT(RND(1)*40)*2:NEXT:SYS50736:SYS50720
  171. 1340 SYS49288,0,1,10,2:POKE646,PEEK(827)+8:POKE198,0
  172. 1350 PRINT"[147][144]                                        ";
  173. 1360 PRINT" PRESS SPACEBAR TO CONTINUE [146]"
  174. 1370 POKE646,PEEK(827)+8:SYS49584,24,0:V=50:S=-1
  175. 1380 SYS49936
  176. 1385 FORA=0TO10:Z(A)=Z(A)+2:IFZ(A)=80THENZ(A)=0
  177. 1388 SYS49152,Z(A),2+A*4,1:NEXT
  178. 1390 FORA=0TO9:B=A+11:Z(B)=Z(B)+1:IFZ(B)=80THENZ(B)=0
  179. 1395 SYS49152,Z(B),4+A*4,1:NEXT
  180. 1400 SYS49152,30,V+2,2:SYS49960,31,V+1,0,2,2:SYS49960,32,V,0,4,2
  181. 1410 SYS50256,33,V,15,4,3:SYS49960,33,V+3,5,0,2
  182. 1420 FORA=1TO3:SYS49960,53,V+A,8,0,1+INT(RND(1)*2):NEXT
  183. 1430 FORA=1TO3:SYS49960,62,V+A,8,0,1+INT(RND(1)*3):NEXT
  184. 1440 FORA=1TO3:SYS49960,71,V+A,8,0,2+INT(RND(1)*2):NEXT
  185. 1450 SYS50256,49,V+1,3,2,1
  186. 1500 SYS50176:V=V+S:IFV=15ANDS=-1THENS=-S
  187. 1510 IFV=30ANDS=1THENS=-S
  188. 1520 GETA$:IFA$<>" "THEN1380
  189. 1525 SYS50216:SYS50704
  190. 1530 SYS49888:PRINT"[147]":FORA=0TO24:SYS49960,A,A,79-A*2,49-A*2,1
  191. 1540 SYS49960,A,A,79-A*2,49-A*2,0:NEXT
  192. 4995 PRINT"[158][147]":SYS49824:POKE198,0:END
  193. 5000 POKE646,PEEK(827)+8
  194. 5005 PRINT"[147][144]                                        ";
  195. 5010 PRINT" PRESS SPACEBAR TO CONTINUE [146]"
  196. 5012 POKE646,PEEK(827)+8
  197. 5015 SYS49584,24,0:POKE198,0
  198. 5020 GETA$:IFA$<>" "THEN5020
  199. 5030 SYS49888:PRINT"[147]":POKE198,0:RETURN
  200.